home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / lib / perl5 / UUID.pm < prev   
Text File  |  2001-03-01  |  1KB  |  58 lines
  1. package UUID;
  2.  
  3. require 5.005;
  4. use strict;
  5. #use warnings;
  6.  
  7. require Exporter;
  8. require DynaLoader;
  9.  
  10. use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $VERSION);
  11. @ISA = qw(Exporter DynaLoader);
  12.  
  13. # This allows declaration       use UUID ':all';
  14. # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
  15. # will save memory.
  16.  
  17. %EXPORT_TAGS = ( 'all' => [qw(&generate &parse &unparse)] );
  18.  
  19. @EXPORT_OK = ( @{$EXPORT_TAGS{'all'}} );
  20.  
  21. $VERSION = '0.02';
  22.  
  23. bootstrap UUID $VERSION;
  24.  
  25. # Preloaded methods go here.
  26.  
  27. 1;
  28. __END__
  29.  
  30. =head1 NAME
  31.  
  32. UUID - Perl extension for using UUID interfaces as defined in e2fsprogs.
  33.  
  34. =head1 SYNOPSIS
  35.  
  36.   use UUID;
  37.   UUID::generate($uuid); # generates a 128 bit uuid
  38.   UUID::unparse($uuid, $string); # change $uuid to 36 byte string
  39.   $rc = UUID::parse($string, $uuid); # map string to UUID, return -1 on error
  40.  
  41. =head1 DESCRIPTION
  42.  
  43. With these 3 routines UUID''s can easily be generated and parsed/un-parsed.
  44.  
  45. =head2 EXPORT
  46.  
  47. UUID::{generate, parse, unparse}
  48.  
  49. =head1 AUTHOR
  50.  
  51. Peter J. Braam <braam@mountainviewdata.com>
  52.  
  53. =head1 SEE ALSO
  54.  
  55. perl(1).
  56.  
  57. =cut
  58.